APPENDIX F 


LISTING OF THE SYSTEM MACRO FILE 
(SYSMAC.SML) 

.MACRO .PARAM 

R0«%AO0 
R1«%A01 
R2*Xa02 
R3«% a03 

R4i%aQ4 

R5«Xa05 

R6«Xa06 

R7«Xa07 

SPtXA06 

PC»XA07 

PSWHA0177776 

SWR«AO177570 


.ENDM 



.macro 

. INIT 

.LBLCK 

.mcall 

, AMODE 


.AMODE 

, LSLCK 


EMT <aq6> 


.ENDM 



.MACRO 

.RUSE 

.LBLCK 

.mcall 

, AMODE 


.AMODE 

, L8LCK 


EMT <aq7> 


.ENDM 


4 

.MACRO 

.CLOSE 

.LBLCK 

.mcall 

„ AMODE 


.AMODE 

. LBLCK 



EMT <A017> 
.ENDM 


.MACRO 

.READ 

.LBLCK, .LBUFF 

.MCALL 

.AMODE 


.AMODE 

.LBUFF 


.AMODE 

.LBLCK 


EMT <a04> 


.ENDM 



.MACRO 

.WRITE 

.LBLCK,. LBUFF 

.mcall 

.AMODE 


.AMODE 

.LBUFF 


.AMODE 

.LBLCK 


EMT <A02> 


.ENDM 



.MACRO 

.OPENO 

.LBLCK, .FBLCK 

.MCALL 

.CODE., 

OPEN 

.CODE 

.FBLCK, 

<A02> 

.OPEN 

.LBLCK, 

.FBLCK 

.ENDM 
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t MACRO 

.OPENI .LBLCK, .FBLCK 

.MCALL 

.CODE, .OPEN 

.CODE 

.FBLCK, <a04> 

.OPEN 

.ENDM 

.LBLCK, .FBLCK 

.MACRO 

.OPENU .LBLCK, .FBLCK 

.MCALL 

.CODE* .OPEN 

.CODE 

.FBLCK, <a01> 

.OPEN 
. ENDM 

.LBLCK, .FBLCK 

.MACRO 

.OPENC .LBLCK, .FBLCK 

.MCALL 

.CODE, .OPEN 

.CODE 

.FBLCK, <A013> 

.OPEN 

.ENDM 

.LBLCK, .FBLCK 

.MACRO 

.OPENE .LBLCK,. FBLCK 

.MCALL 

.CODE, .OPEN 

.CODE 

, FBLCK, <a03> 

.OPEN 

.ENDM 

.LBLCK, .FBLCK 

.MACRO 

.OPEN .LBLCK, .FBLCK 

.MCALL 

.AMODE 

.AMODE 

.FBLCK 

.amode 

.LBLCK 

EMT <aQ16> 

.ENDM 


.MACRO 

.WAIT .LBLCK 

.MCALL 

.AMODE 

.amode 

.LBLCK 

EMT <A01> 

.ENDM 

- 

.MACRO 

, WAITR .LBLCK,. AOD« 

.MCALL 

.AMODE 

.AMODE 

. ADDR 

.AMODE 

.LBLCK 

EMT <aQ0> 

.ENDM 


.MACRO 

.BLOCK .LBLCK, .BBLCK 

.MCALL 

.amode 

.AMODE 

.BBLCK 

.AMODE 

.LBLCK 

EMT <AOU> 

.ENDM 


.MACRO 

.TRAN .LBLCK, .TBLCK 

.MCALL 

.amode 

.amode 

.TBLCK 

.AMODE 

.LBLCK 

EMT <AO10> 

.ENDM 




.MACRO .SPEC .LBLCK, .SARG 
.MCALL .AMODE 

.amode .sarg 

.AMODE .LBLCK 
EMT <A012> 

.ENOM 

.MACRO ,STAT .LBLCK 
.MCALL .AMODE 
.AMODE .LBLCK 
EMT <*0l3> 

, ENDM 

.MACRO .ALLOC .LBLCK, .FBLCK, ,N 

.MCALL .AMODE 

.AMODE . N 

.AMODE .FBLCK 

.AMODE .LBLCK 

EMT <A0l5> 

.ENDM 

.MACRO .DELET .LBLCK, .FBLCK 
.MCALL .AMODE 
.AMODE .FBLCK 
.AMODE '.LBLCK 
EMT <*021> 

.ENDM 

.MACRO .RENAN' .LBLCK, ,OFB#.NFB 

.MCALL .AMODE 

.AMODE ,NFB 

.AMODE ,OFB 

.AMODE .LBLCK 

EMT <*O20» 

.ENDM 

.MACRO ' .APPND .LBLCK, . 1FB, ,2FB 

.MCALL .AMODE 

.AMODE ,2FB 

.AMODE , 1FB 

.AMODE '.LBLCK 

EMT «*022> 

.ENDM 

.MACRO .LOOK .LBLCK, .FBLCK, , OP 

.MCALL .AMODE 
.AMODE .FBLCK 
. I IF NB,,OP,CLR -CSP) 

.AMODE .LBLCK 
EMT <A014» 

.ENDM 

.MACRO .KEEP .LBLCK, . FBLCK 

.MCALL .AMODE 
.AMODE .FBLCK 
.AMODE .LBLCK 
EMT <A024» 

.ENDM 

.MACRO .EXIT 
EMT <*O60> 

.ENDM 
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.MACRO 

.TRAP ,STUS,,AODR 

.mcall 

.AMODE 

.AMODE 

, ADDR 

.AMODE 

. STDS 

MOV 

#aQ1 ,«* (SP) 

EMT <a041> 

• ENOM 


.MACRO 

, STFPU .STUS,.ADDR 

.MCALL 

.AMODE 

t AMODE 

.ADDR 

.AMODE 

. STUS 

MOV 

#a03,»(8P) 

EMT <aQ41> 

,ENDM 


.MACRO 

.RECRD .LBLCK, .RBLOK 

.mcall 

.AMODE 

.AMODE 

.RBLCK 

.AMODE 

.LBLCK 

EMT <aQ25> 

.ENOM 


.MACRO 

.DUMP .LOW, .HIGH, .COE 

.MCALL 

.AMODE 

.AMODE 

.LOW 

.AMODE 

.HIGH 

.AMODE 

. CDE 

EMT <aQ64> 

« ENDM 


.MACRO 

.R8TRT .ADDR 

.MCALL 

.AMODE 

.AMODE 

.ADDR 

MOV 

*a02,«(SP) 


EMT <a04 1 > 

.ENDM 


.MACRO 

.CORE 

MOV 

#AO100,*(SP) 

EMT <A041> 

.ENDM 


.MACRO 

,MONR 

MOV 

#aO101,-(SP> 

EMT <aQ4 1 > 

.ENDM 


.MACRO 

,monf 

MOV 

#AO102,-(SP) 

EMT <A04t> 

.ENDM 


.MACRO 

.DATE 

MOV 

#aQ103,-CSP) 

EMT <aQ41> 

.ENDM 




.MACRO .TIME 

MOV #*0104, -(SP) 

EMT <*04l> 

,ENOM 

.MACRO .GTUIC 
MOV #*0105,- (SP) 
EMT <*041> 

,ENDM 

\ 

.MACRO .SYSDV 
MOV #*0106, -(SP) 
EMT <*041> 

,ENDM 

.macro .radpk .aoor 
.MCALL .AMODE 
.AMODE ,ADDR 
CUR -CSP) 

EMT <*042> 

. ENDM 


.MACRO .RAOUP « ADDR, . WRO 

.MCAUL .AMODE 

.AMODE , WRD 

.AMODE .ADDR 

MOV #*01,»(SP) 

EMT <*042> 

.ENDM 

.MACRO .D2BIN .ADDR 
. MCAUU .AMODE 
.AMODE .ADDR 
MOV #*02, -(SP) 

EMT <*042> 

.ENDM 

.MACRO . B I N 2 D .ADDR,. WRD 

.MCALU .AMODE 

.AMODE . WRD 

.AMODE .ADDR 

MOV #*03, -(SP) 

EMT <*042> 

.ENDM 

.MACRO . 02BIN .ADDR 
.MCALL .AMODE 
.AMODE .ADDR 
MOV #*04. - (SP) 

EMT <*042> 

.ENDM 

.MACRO .BIN20 .ADDR,, WRD 

.MCALL .AMODE 

.AMODE . WRD 

.AMODE .ADDR 

MOV #*05, -(SP) 

EMT <*042> 

.ENDM 
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.MACRO , C3I 1 .CMDBF 
.MCALL .AMODE 
.AMODE .CMDBF 
EMT <*056> 

. ENDM 

.MACRO ,CSI2 .CSBLK 
.MCALL .AMODE 
.AMODE .CSBLK 
EMT <aQ57> 

.ENDM 

.MACRO .DTCVT . ADDR 
.MCALL .CVTDT 
.CVTDT #aO0,.ADDR 
.ENDM 

.MACRO .TMCVT .ADDR 
.MCALL .CVTDT 
.CVTDT #*01, .ADDR 
.ENDM 

.MACRO .CVTDT ,CDE, .ADDR, » VALI, ■ VAL2 
.MCALL .AMODE 
.IF N8,.VAL2 
.AMODE , VAL2 
. ENDC 

.IF NB, • VALi 
.AMODE .VALI 
,ENDC 

.AMODE .ADDR 
.AMODE ,CDE 
EMT <a066> 

.ENDM 

.MACRO .GTPLA 
CLR -CSP) 

MOV #a05,*(SP) 

EMT <a041> 

.ENDM 

.MACRO .STPLA .ADDR 
.MCALL .AMODE 
.AMODE . ADDR 
MOV #A05,-(SP) 

EMT <A041> 

.ENDM 

.MACRO .GTCIL 
MOV #*0111, -CSP) 

EMT <A04l> 

.ENDM 

.MACRO .GTSTK 
CLR -<SP) 

MOV #*Q4,-(8P) 

EMT <a041» 

.ENDM 

.MACRO '.STSTK .ADDR 
.MCALL .AMODE 
.AMODE .ADDR 
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MOV #*04, -(SP) 

EMT <A04l> 

( ENDM 

.MACRO .RUN ,RNBLK 
.MCALL .AMODE 
.ANODE .RNBLK 
EMT <A065> 

.ENDM 

.MACRO .FLUSH ,CDE 
, MCALL .AMODE 
.ANODE , CDE 
EMT <a067> 

.ENDM 

I THE MACRO .AMODE ACCEPTS ONE ARGUMENT AND 
1 AS A FUNCTION OF THE ADDRESSING MODE OF 
f THE ARGUMENT GENERATES THE APPROPRIATE 
; MOV TO -(SP), 

t ADDRESS MODES THAT ARE TROUBLESOME (E.G. 
t X(S P)) OR UNLIKELY (E.G. SP) WILL RESULT 
; IN A .ERROR TO CMO INCLUDING THE 
t VALUE OF THE ADDRESS MODE (E.G. X(3P) 

; IS REPRESENTED AS 000066), THE ARGUMENT ITSELF 
j AND THE TEXT "ADDRESSING MODE ILLEGAL AS SYSTEM 
f MACRO ARGUMENT". 

.MACRO .AMODE , ARG 

SP*%*06 

.NTYPE ,SYM,.ARG > . SYM»AODRESS MODE, 


.IF LE,,SYM-aC5 
MOV ,ARG,-(SP) 

.MEXIT 
,ENDC 

.IF EQ, .8YM&aC70-aO10 
.IF LE,.SYM&a07-ao6 
MOV ,ARG,-(SP) 

.MEXIT 
,ENDC 
, ENDC 

.IF EQ, ,SYM&aO60-aO20 
MOV . ARG, * (SP) 

.MEXIT 
.ENDC 

.IF EQ, ,SYM&aO40-aO40 

.IF LE,,SYM&a07-ao5 

MOV . ARG, • (SP) 

.MEXIT 

.ENDC 

.ENDC 

.IF EQ,,SYM&a067-a067 
MOV ,ARG,-(SP) 

.MEXIT 
.ENDC 


|R0 TO R5 


l<*R0 TO #R6 


f C#3 CR0) ♦ TO [#)(R7) + 
f #N, ##ADDR 


t (•) -(R0) TO CPI*(R5) 
I tf 3 X(R0) TO (P)X(R5) 


>addr AND #ADOR 
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.ERROR ,SYM 
.PRINT 

. ENDM 

t THE MACRO .CODE SETS UP THE FILEBLOCK 
t WITH THE HOW OPEN CODE, 
t THE ADDRESS OF THE FILEBLOCK MUST 
I BE IN A REGISTER <R0 TO R5) 

.MACRO .CODE ,FBLK#,N 
.NTYPE ,SYM,.FBLK 

.IF LE/.SYM-a05 

MOVB #.N,-a 02C.PBLK) fR0 TO R5 

.MEXIT 

,ENDC 

.ERROR , SYM I.FBLK ADDRESSING MODE ILLEGAL 

.PRINT > FOR .OPEN FILE BLOCK 

, ENDM 


I , ARG ADDRESSING MODE ILLEGAL 
I AS SYSTEM MACRO ARGUMENT, 


.MACRO .F4DEF N 
.IF NB N 
.F4SEQ »N 

• ENDC 

.MCALL .MVMRB, .MVMRL# .MVMRI, .MVMRJ» .MVMRR, .MVMRD# .MVMRC 
.MCALL .MVSRB, .MVSRL# .MVSRIf .MVSRJ# .MVSRR, .MVSRD* .MVSRC 
.MCALL .MVR8B,.MVRSL#,MVRSI,.MVRSJ,,MVRSR,.MVRSD#,MVRSC 
.MCALL .MVRMB, .MVRMLi ,MVRMI..MVRMJ, 1 MVRMR, .MVRMD# .MVRMC 
.MCALL F4RTN 
.IF EG .F4SEQ 
.MCALL .F40LD 
.F40L0 
.MEXIT 
.ENDC 

.IF EQ «.F4SEQ-1>*«,F4SEQ.2> 

.MCALL .F4NEW 
* .F4NEW 
.MEXIT 
.ENDC 

.ERROR N > FORTRAN CALL SEQUENCE DEFINITIONAL ERROR 
.ENDM 


; MACRO 


SSL 


LABEL! 


TO DEFINE OLD FORM 
.MACRO .F40L0 
.MACRO .F4RTS 
RTS X5 

.ENDM 

.MCALL ,F4P1,,F4P2,F4VAL2 
.MACRO F4CALL SUB, ARGS# ?L*BEL 
• 0 

. IRP X*cARGS> 

,F4Pi LABELrX 
.ENDM 

JSR %5,SUB 
BR ,+2+SSL 

.IRP X, <ARGS> 

, F4P2 X 
.ENDM 
.ENDM 
.ENDM 
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; MACRO TO DEFINE THE NEW FORM 
.MACRO .F4NEW 
.MACRO .F4RTS 
RTS %7 
.ENDM 

.MCALL ,F4Pl,,F4P2,F4VAL2 
.MACRO F4CAUL SUB, ARGS, ?LABEL 
SSL «0 

. IRP X/<ARGS> 

, F 4 P 1 UABEU,X 

.enom 

.IF NE .F4SE0-2 
MOV 
. ENDC 

MOV #LABELr%5 
jSR %7,$U6 

BR ,+4+$$L 

LABEL* .BYTE S$L/2f0 
, IRP X# <ARGS> 

. F4P2 X 
.ENDM 

.IF NE .F4SEQ-2 

MOV (%6)+,%5 

.ENDC 

.ENDM 

.ENDM 


jMACRO TO BUILD THE DYNAMIC PART OF ARG LIST 
.MACRO ,F4P1 L.X.Y 
, NARG $»N 
.IF EQ S$N«3 
MOV X t L + 2 + SSL 

.IF NE Y 

ADD #Y,L+2+S$L 

.ENDC 

S$L b$$L+2 
.MEXIT 
.ENDC 

.IF NE $$N-2 
.ERROR r BAD F4CALL ARG 
.MEXIT 
.ENDC 
.IF B X 
SSL b$$L+2 

.MEXIT 
. .ENDC 

, NTYPE SSAM.X 
' .IF NE $$AM-a067 
MOV X i L+2+SSL 

.ENDC 

SSL »$$L+2 

.ENDM 
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I MACRO TO DO STATIC PART OF ARG LIST 


.MACRO 

. F4P2 X,Y 

.IF B 

X 

.WORD 

• i 

•MEXIT 


.ENDC 


.IF SB 

Y 

.WORD 

-l 

•MEXIT 


.ENDC 


, NTYPE 

$$AM,X 

.IF EQ 

$$AM»a067' 

.WORD 

X 

.IFF 


.WORD 

• 1 

.ENDC 


.ENDM 


.MACRO TO DO FORTRAN RETURNS 

.MACRO 

F4RTN T.L 

.IF NB 

T 

.IF B 

L 

.ERROR 

* MISSING ARGUMENT 

.ENDC 


.ENDC 


.IF NB 

T 

.IF NB 

L 

.NTYPE 

$ $ A M . L 

.IF EQ 

$$AM-f067 

.MVMR'T 

f rr 

L 

| I r F 

.IF EQ 

$$AM&tO70-K)20 

.IF EQ 

$$AM-t027 

.ERROR 

$$AM>BAD ADDRESS MODE 

.IFF 


.MVSR'T 

L 

.ENDC 


.IFF 


.ERROR 

$$AM j B AD ADDRESS MODE 

.ENDC 


.ENDC 


• ENDC 


.ENDC 


.F4RTS 


.ENDM 



f MACRO TO DO FORTRAN VALUE STORE 


.MACRO 

F4VAL2 TfL 

.NTYPE 

S5AM.L 

.IF EQ 

$SAM&aO70-aO40 

.MVRS'T 

L 

.MEXIT 


.ENDC 


.IF EQ 

$$AMw a067 

.MVRM'T 

L 

.MEXIT 


.ENDC 


.ERROR 

SSAMjBAD ADDRESS MODE 

.ENDM 
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(MACROS TO MOVE FROM MEMORY TO REGISTERS 
(BYTE 

.MACRO .MVMRB A 
MOVB A#X0 

.ENDM 

(LOGICAL 

.MACRO .MVMRL A 
MOV A,X0 

.ENDM 

(INTEGER 

' .MACRO .MVMRI A 
MOV A#X0 

.ENDM 

(DOUBLE INTEGER 

.MACRO .MVMRJ A 
MOV A# X0 

MOV A+2#Xl 

.ENDM 

(REAL 

.MACRO .MVMRR A 
MOV A*X0 

MOV 2+A,Xl 

.ENDM 

(DOUBLE REAL 

.MACRO .MVMRD A 
MOV A,X0 

MOV 2+Ar %1 

MOV 4+Ar X2 

MOV 6+Af X3 

.ENDM 

(COMPLEX 

.MACRO . MVMRC A 

.MVMRD A 

.ENDM 


(MACROS TO MOVE FROM STACK TO REGISTERS 
(BYTE 

.MACRO .MVSRB A 
MOVB Ar X0 
.ENDM 

(LOGICAL 

.MACRO .MVSRL A 
MOV A# X0 
.ENDM 

(INTEGER 

.MACRO .MVSRT A 
MOV A# X0 
.ENDM 

(DOUBLE INTEGER 

.MACRO , MVSR J A 
MOV AfX0 
MOV Ar XI 

.ENDM 

(REAL 

.MACRO .MVSRR A 
MOV AfX0 
MOV A#%1 
.ENDM 
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I DOUBLE REAL 

.MACRO .MVSRD A 
MOV A,%0 

MOV kf%t 

MOV kt%2 

MOV A# %3 

.ENDM 

j COMPLEX 

.MACRO .MV3RC A 
.MVSRD A 
. ENDM 


^MACROS TO MOVE FROM REGISTERS TO STACK 
jBYTE 

.MACRO .MVRSB A 
MOVB X0 P A 
.ENDM 

jLOGICAL 

.MACRO .MVRSL A 
MOV %0pA 
.ENDM 

) INTEGER 

.MACRO .MVRSI A 
MOV %0fr A 

.ENDM 

I DOUBLE INTEGER 

.MACRO . MVRS J A 
MOV %1„A 

MOV %0 ir A 

.ENDM 

>REAL 

.MACRO .MVRSR A 
MOV %1,A 
MOV %0ir A 
.ENDM 

^DOUBLE REAL 

.MACRO .MVRSD A 
MOV X3,A 
MOV %2i» A 
MOV XUA 

MOV %0»A 
.ENDM 

^COMPLEX 

.MACRO . MVRSC A 
.MVRSD A 
.ENDM 
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i MACROS TO MOVE 

FROM REGISTERS 

fBYTE 

.MACRO 

.MVRMB A 

MOVB 

X0,A 

.ENDM 

f LOGICAL 


.MACRO 

,mvrmL A 

MOV 

X0,A 

.ENDM 

i INTEGER 

.MACRO 

.MVRMI A 

MOV 

X0, A 

.ENDM 

fDOUBLE INTEGER 

.MACRO 

.MVRMJ A 

MOV 

X0,A 

MOV 

Xl, A+2 

.ENDM 

iREAL 

.MACRO 

.MVRMR A 

MOV 

X0,A 

MOV 

Xl,2+A 

.ENDM 

fDOUBLE REAL 

.MACRO 

f MVRMD A 

MOV 

X0,A 

MOV 

XI , 2+A 

MOV 

X2,4+A 

MOV 

X3,6+A 

.ENDM 

fCOMPLE* 

.MACRO 

.MVRMC A 

.MVRMD 

A 

.ENDM 

.MACRO 

.GTRDV 

CLR 

-CSP) 

CLR 

-<SP) 

MOV 

#112, *<S P) 

EMT 

41 

.ENDM 

.MACRO 

.gtclk 

MOV 

#113, "(SP) 

EMT 

41 

- .ENDM 

.MACRO 

.GTOVF 

MOV 

#U4 r «(SP) 

EMT 

41 

.ENDM 

.GTOVF 
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